ML %}  X c0C)HCCH Mhhݩh `eCDiCD`  RyHP   * 1H0芢@) Y0.Ș` i #(PMR\ \b Pgi 0  % @ / ՠ`d   0DDԝLOP0KK25K25KAFILELINEPPHOLDFNSCREEDRAMTOBYTEHLIIIAPMBAS}@ }ǠĠŠ!!: IF NEW SCREEN THEN D}RAW A : BLANK SCREEN AND PUT THE!!: CURSOR ON THE FIRST LINE.##: IF OLD SCREEN THEN LOAD THE%%: SELECT}ED SCREEN, GOTO EDITOR,: AND SAVE OVER OLD FILE. K6-@6-AU#6-%- @ 9ARK( }IN }ITIALIZING;;;,;@,9@%,;@@,;,;@,Z'6-F:@,%$F:@,%@@5-@#>6 }8,-L6-%@@P Z A1ΠՠΠY @ +#AY@b5B2w@C0@ }M BY@[( ('(*** ANALOG CARD FILE ****(96.>:@,H67@@,.W67@,.[(Q+(#AFTE }R SCREEN IS LOADED, TYPE ON THEQ(!SCREEN AS DESIRED. START=SAVE TO//('DISK. OPTION=START OVER WITHOUT SAVING+$(S }ELECT=PRINT OUT THE SCREEN.'(+(m('(EW OR LD SCREEN, IRECTORY>(OR URGE A CARD: CW@K:d)}@m6.>:,(4OA-4PA24DA <0N@0cנΠŠdH }(NEW(((FILE NAME TO SAVE AS2 A@6+HAY@bnqB2w@/0@@@=0@}K0@g6-F:A`,%F:Aa,$q BxB%@@p+%@@B( ANALOG CARD FILE}ҠŠX @ &@K:2@>ARD-L(XAd+F:Ad,})!(>:,+ A@5F:B2y,"@$AR+(5 A F:B2y,"@@  F:B2y,}"@A0 A@ŠŠZ (PURGE(;(!ENTER FILENAME TO DELETE OR PRESSP(RETURN TO A}BORTZ A@4@ &@3@& @ ԠΠŠ 9 (OLD(%(FILE NAM}E TO EDIT/ A@9 A ˠ٠_(}DRIVE #)%6.D1:*.*?67@<@,.>:,DK(>:},N(_@Q-@d'6.7@,Q7@<@,4 FREE SECTOA EB'@"P:'@},4-@+%,'@8(B A @%!-@+%@,'@%( 4(((PRESS ANY KEY TO CONTINUE.}..4AdF:Ad,"A PAd @ ŠΠϠˠ@}5*F:A 9,'-AA1*F:,5 M6-F:A,$06-F:A`,%$F:Aa,86-&C6-P:',M6-}&$7AP@!AV-AW7 A 0ĠΠ͠ˠ@M )}+ AY@b2B2w@F-AAM)A   B)AP@5AVAAW}^ARF:A`,-ASF:Aa,I6-?:C:hhhLV,<@,T@^ A0 ԠԠŠ}Π 4 A0&@P:4-@# G-@@)67,.7F:8,%&,%,- 4 8 =G A0} ٠ϠŠàϠà 7 -6-6-#!A')6-76-&A(& 1 @d'6-%@2%A($}1 A1@0 1 @'6-&@d%A($1 A1@: 6-%A($D 67%,.>:,  Я͠Π } .6-F:A,&@&BBy.6-$ 3-B2VB2Y#@' 3B2` ,@,@F:!}A,&@ C#-%A %A @3-A$;%? C  Q-AA! 3AY"}@bEB2w@QA# (-B2HB2U"!% ($ ##48,80,112,144,176,184,192,200Š#}ŠҠ4$$-B:,7<,4:!6.$$" 6.D:67@,."$/uŠˠ٠$}0uD6-F:@,!A',6-&A(8@DB7t:u$D2:CARDFILE.BAS"$/uŠˠ٠bN@  )?HI Y0`HIJH) * J j * hJJJ )HJ h i     &} YS S0 i`΢ϣ߳H J3xj2h'} 1 |9 ӭ45(420 * (0241өX.`  R *i)Lvw  ~*P(}E 5 LN(G E  r s k rsrL ( E LO(0d( L iE0O +)$IC  H S8 )}q p h   j 8no CDLQ CFl M  LO Ri)Llk2'")*F*}$F$F$F$F$ 5 )ШF/Șl]kpqС,LQ/A! Ti)Zlk@ ܬ/i)(")")k+}$F$F$F 5$/L /lF@jj(LNkle$$%8(k()` R 8 ELO Ri)^>jf | NrC s ,} ) vw5g   enfo Glvw LQ@iLm>j FL ~Jjjjii p qEh-}jlrs`LQ:$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C.} H h    ˰ 8  N   Lm E  ,  [ `LQ ,/ 8 ~/  Ơ? ѩ/}/  [ /Lj0?MoLn FjMqLp NklLOLQnLoMlNLO R"(+0}ըHH`Q R!!  % !   / .   FȑF! /GF \H"+0+* 1}! F tLQnm: J~nTF1F  *n+)5! n (, n)1JJJn(n*o2} I ,0  ci a oF? @ , 8,0 ʩ0H Eh   i3}  D ]DmmFLQvtu`*&!*@h ] 0 ^0` c 0l$$%4}()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h5}`hhh&JJ ](ll  LQ0  /qnoHH 9 9 H H  I9  9 6} Nd EH  Q8 o n  FnoL HII/ Ih8`h`Lnon`no`u F 7}E VEhLO/luF l0BF/lɜɛ׽hE N  b VFL FREE SECTORS C8} H) *Fh ):FȽ F FC IH' 0 d  i:Fȩ/F.l`CD/08HDIC9}IHȰ/F`ȱ$>.+.i ȱ$:刄H !A \ Hȱ$*?ȝ 2. ? [_{ ,0:}-:) 0$:>WI  IТ,LQH  0hLd ~ t u`C ?( 0(C.` E ;} R =! .ti S0N EE D XC )0')AY  )ע ? 0E088FG \o<}n  (HhLcL3 iJ i Lqp 0=rspnqopqlk`jZj0  j FL`H=}FhȑFȽlFi0 h FFLFpvqwgneofLF pq7  G0i 0 FJJh1FqȱFpȱFk`B!>}08`hEE D 8. =D}tui( TʩL`b!)    cȌaȌd b`aab?}H8 hdaHcd8 cH hHH  \h hc` =Hh I8ih( t  ( t(!` L\@}CJfCJfCJfCDfC` a  HII  INdh  `h  `n)8jHniPoijIjFIjFIjh` aA} I 38  8H0 I  ' H LQ8j Y  8j NdY  &I &I &IHeH.pB}Iiq  `!.莿 2Jjj }.m Ȉ!m FG` ɩLQ z C} e Hi04 \ Ȍ  8 i h !`I0 `C Y8.`DOS SYSD} I  ` ~ݩ.C/`ba.m۩mѤC9 `C L] H  ,- '0 l E}, BLVDE`D1:AUTORUN.SYS8hhJ ȱHȱIȱBȱDȱEeeHHLV)  F}1*  ,,p-  0 I &  '0   Lw)l, 0  I&LD1:MEM.SAVG}E:D1:DUP.SYSQ  HH)O}  hyhyB q L> Lm JJ  Ln*` dB%'P}8  H H` 1 { LL   !L     Hh SY?  q  1LQ}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1LR}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@S}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  qT} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF U} G) *Gȩ GȽG GȌd q q G`  8   0G  `DV}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`YW}`piH n0)բY? 08`0 X}  0$L GGȽG L `8L`LY}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`Z}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE[} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR\}1LJ舩9GIH`LJJ`HGHh l`]} S gL   8 rii `дCDCG W  ^}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}} _} HE |||DDOS DOSDOS SYS }`}}a}CDOS SYSBm+MATTEDITBASBuGRAPHEZEBASB SPYPLANEBASBBOOT1 ASMBBOOT4 ASMB BOOT6 ASMBoFERGEE b} BAS 0`BDELV !B c}`LVUQ   ]   TU J ]L!T  #      TU d} L ? .  t`GBJ V~DEHI B V0dVe}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhf}DEL8HI   0 HI,0 0  9 .G VLOg},0 L4*IJ`llD1:A*.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIh} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHIi} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO j}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -k}LLu DEHILV 9 .l 9 .l  `` s$B VBHl}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVLm}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2en}1i1232435ޥ<<87} 56PROGPCCCCOLCCLNLSILCC2AWBLTBMAXLIXCURYCURLINECONSOKEMMCNLLDRLLLYBDp}SINECLSLPPLPDNHLL q} r} !"#$%&'()*s}+,-./0123456789:t};< u;A,;@U,$6-C:,-6-C:,96-E6-@Q6-@]6-Ai6-@u}u6-@K-A"#67<,.>:,' 5-@U9"G67<,.>:,K <<+6-I:,&AV$6-@7v}06-@<6-@#F>;,;,;,;,;,%6.3K:>6-P:',P@6-@6-@!6-,67,w}. 767,. @67,.Z6-B2y6-Add4 (}@A-B7tA46.n%A(6-@x}% A0x ( ΠՒ ( Disk DIR ( Edit Text ( Load File ( y}Merge File( Save Text ( Print Text( Kill File ( Quit ( j 6z}-66-@ A&6-jAAA# A$PA$A(pAPA5p3-@6',2{}@`@0 3$(Try Again Please--@%-2A@@02A@@@|}# -20$_ A @(@(G)S"AU_6-@I"#6-&@H}}# )!A ,&(@  (}&6-6$@,(( Out of range." A`, AJ 6- A~}PT 6-^ AhU(4( ( ONLY=) 8AB:,"G6-K(U Ar6-P:A:,},| *$@,( Out of range (- only).6 AP@ AP(Bad input char(s)$$( #'s only, }- valid. AP APEA@d!A>(}ԪԠA(E(!!(}$+B:,,##(󠽠&%+B:, ,!@AR(!$G AA@d+A}@( G) "@(6- $ "@x(6- $#( AP# A}p 6.6-1(< To Abort>1(Type text & press :4 6-F:,@"*( }Р4 A}- 6-F:,-(- %--(-&> AP) "@'#'&'46.> A0A&A}:2 6-&  A`!6-(6.2 A0D (>:,6.7<, APN"AU(6-B:,$X7# @2})!A")"@- A`7 APb! (>:,6-%!67<,.>:,lA@v*(( Ϡǡ A`}* A !& A@ AP 6-& 6- A0)( Š 6-# A)6-((}Š to ''AA A0A@<(Ġ2(< AP(}Š AP (Š text TO AP(Š ((press only for )'6-@ A'}!A 6- A Ap + 6.D67,.=:,"67,.:+67,.- A(*( Working...}-$ A6. ɯϠ 467B:,%,.=:F:A,,7'A A* 6.AD46-@ A0>( }ˠҒ H( List DIRR( PRINT DIR\( Load DIRf( Merge DIRp( GoTo Mainz( }R 6-66-@ A&6-RA A A A `A 6- A  A( 6-}((Load Disk DIR into buffer.<(< will be >2( Are you < Ap (6. A }$ 6-6. A $ A ) 6-)(Merge into text buffer." A 6." A 4 6-6-} A*6. Ԡ4 A  6-2( of Š ?"6-, A26-% 6.D67,.=:,%67,.}:*.*L +),(((Š for this DIR .6-8 A>6.L"A@67B:,%,.7B:,%,I( A}&@*>@P:I(A) 6. A6-$()($- 6.6- A`}#6.- A`.! A6-6!6-8;7<@,4 F167@<@,. ; AB} 6.7,6.}7@ ,467@ <@ ,..C67@,.]67@<@,. c }67@<@,.| L( (}V A0`( (j(Apt$  67<@,.$ Ap~.67@<,.6.$ A`.} Ap 6-%!' A@#6-$+&,% 67<%&,.#$ A(( (, "F:A},A6, A( A05  6.+67@<,.7@<,5 A` 6. A`A A}(4( ;)>(A$- 6-&*6.Incomp. Load, full-$6. Kill File6-@} 6- A`3( )( Are you 3 Ap(6. A =@3}6.367B:,%,. = A 6.A0 6- A0(/( Ġ/(Π>& Scroll} Up 1 Pg2!!(Ԡ>& Scroll Dn 1 Pg<9$(Ԡ>& Exit to EDIT Menu6@@9(F( Ԡ P(} GoTo StartZ( GoTo End d( GoTo LINE n( Delete Lnsx( Insert Lns( Empty BUFF( GoT}o Main ( \ 6-66- A 6-\APA`AA0A0A"PA }6- A  6-  A0(6-$+&,%(7<%&,0A 6-&!Ap A  6-} A0*( Go To 堣6-$ A@*6- A ' B:, 6. Ơ' AD 6- A0}.( line to Š46-> A@D6-:( line to Š$6-*6-4 AP:6-C($( L}ines >  - 9(Are you Š C Ap"A,6. A6% "67$+&,%,.% A}@!!67$+&,%,.7$+&,%%,J6-&&+&,TR6. >'67B:,%,.=:,767B:,%,.-H67B:,%,.=:,}R A^<(} LINE(S) B:, 26. < Ah3(Insert Line # #6-- A@36-rH }6-&&(# of to insert ?8((MAX=) B A@H6-|-( Are you  Ap-(A+( Worki}ng..-%%+6-$+&,%67<%&,. -6L6-$+&,%!6-$+%&,%967<%&,.7<%&,H}67<%&,.L U 6-%6.=:,:67B:,%,. Lines before K67B:,%,.=:,U A)AR6-%}@"#!)6- (} B:, 6- A 6--6-$+&,% -(7<%&,6-%} 1AR-+(LINE #  16-7-@+(EDIT MODE 7AR 1-}"(>:,>:@0,6-"6-& "(0- A@F:,AU#)- A:F:,"A@D*F:,}@*  A`* A@N"F:,"@6-" A pX"F:,"@6-" A pb F:,"6- A p}l-"A%)"@'# A`- A@vAWA@! 6-F:,6-F:,!AR/-@"(>:}AV,)AR/-B (>:,0+"@1)"@0,*F:,!@88(>:,B A@4"+"@()"@),*F:,"}*(>:,4 A@F:,"*AVA ! 6-F:,6-F:,!AR3"AV-@")(>:AW,3} A ;"*"AU6-@"%6-1@"; A p - (LINE # % 0AR1-}0(>:,>:@0, 6-F:, @8A `"@"6- A p/ @"6-%%(>:AU,/ }A ` 1(>:,>:@0,  A@! 6-F:,6-F:,!AR 4-@,(READING PAGE } 41* , A@4 -6-$+&%,%> -H+AB@+AB@RB:,"}A!P\67B:,%,.7B:,%,f67<%&,. p 6-%!6-z "6-& A A"} 6-%!6-& A A"@ 6-& 6- A 96.** Last line read >>/67B:},%,.=:,9 A&6.Empty Ơנ *& A0!!( text from BUFF ( Are you  Ap}A# A+ 6.6-!6. Ơ+ A $ A6. Ġ 6- A`}6- 6.$ A$.  B:,"A#p8 67B:,%,.7B:,%,B  6-%! A$@L 67$+&,%<$+}&,%,.V A#P` j F:A,"A6A$0t A~ 6.ĭ A 7'6.Ơ}쬠-6-7 A Ax 6. Š  6- A` A#@ B:,A% 6.} Ơ A 6. 0@@2&6-@0 A0 (Šՠ  ( As Text Fi}le  (As PRINT Stmnts (As DATA Stmnts  ( Main Menu  ( 6-66- }A 6-  " A( L*(" blank lines from buffer<( During SAVE F ApL6-2 A&A}& A&P< <#(File # for PRINT statements<((i.e. 6 for '? #6;')F (P # 6- A0}6-# A&`Z (Write DATA Statementsd 7(Starting 堣 '6-B'g&1 A076-n =6-P:+B'g&,',-(}Line 7 A@=6-x A 6-6. Š%6-@16-@; A`A6- - ,6-$+&,}%"7<%&,4*, A(@ "A'  (6-% &A'@A'p ( ? (A'` (}#; (>:@4, A' ( DATA  6.7<%&, 6-?::@4, (  " B6.!167B:,%,. 堣>B67B:,%,.=:,,  }A%6  B:,  A$@  6.@2J 6-@ A0T (ԠӒ ^ ( 40 Char Lin}es h (Newspaper ۲ Colr (Newspaper ۳ Col| ( Return to Main  ( 6-6}6- A 6- "A X@()( for Printout56-@0? AE6.X67B:,%,. Pg } 6&(} text as it is printed:0 Ap66-  "6- A0  =6-@ $-(Left (max=)}7 A@=6- !(!(Vertical line spacing: ""( Single (screen format) ( Double ( 6- A }! "6-@!6-@ ! "6-@!6-@H (Get  (And Press key (}< to abort>& ( A)("AUA100 -"@'#6. - A:  A$ D  6}-6-&@N ,@P:,(A>:,OX !A2pb 6-@:K, A4`l -v 96-$+}&,6.7%<%,$4/(@9 A2@ (+,A20 06-?: A5H  R (6-&A4@\ 6-%+&,$!A4@}f A5Pp  6-%!A2`z A2  6.=:,6-% Q(@ A5`!6-B:,+ A5@>6-?:}:@',>:,>:,>:,U$ H-%+"@,( +(A;(A>:},E A4H$ & 6- A5@#6-?:?@@ABCDEF }@GHIJKLMNOPQ Q +@-@@:( }@ GRAPH E'S ! !QDisplay Program Namex-@@,(@ FORMATTED>-@@P(@PL }OTb-@@x(@PROGRAM!-A ( +22( ( (2(!Loading Machine Language R }outine.<~~;@P,9A,9A,;@@,;@$,;@@,;@@,;@@,;@$,;@@,; }@,Fss;@@,;@$,9@ ,9@ ,9@ ,9@ ,9@ ,9@ ,;@ ,;@ ,P }GG;@,9@ ,9@,;@,;@,;A,Z- A7@-@@P:d A7P }(@nL A LMACHINE LANGUAGE ROUTINE TO DRAW GR. 0 TEXT ON GR. 8 SCREEN.xb +b(P Select array size },ND. Large ND's give smoother curves, but are time consuming.KH(@ ND=10 (Useful to check graph } format.)K(DA(9 ND=100 (A good starting value)D('$( ND=400 (** MAXIMUM **)'( ( } (+ (ND=(('-A+ J A JTo set graph format and select graph grid/tic arrangemen }t.Z(CLEARING ARRAYS+-A/ >6-F:AY,PAYZDMA offP-A&68,- }568,-9 PTo clear out arrays.AY +((((((!(Select plot by number.! }(( (1) Sine Wave( (2) Parabola!!( (3) Circle or ellipse( (4) Discrete Points"""( } (5) Other (Your plot?), ( ((((((6[(COMPUTING ARRAYS,-A0 ?6-F:AY,QAY }[DMA off@//A) A)pA00A0A1@JQAYQEnter title of plot and axis legends. [Alph }anumeric or symbols]TA +=(+Enter Title of Plot (40 characters or less)A^73(+Enter y axis legend (23 characte }rs or less)7h73(+Enter x axis legend (26 characters or less)7r116.' |006 }.& !!6. ;;Imbed titles in the middle of centered blank } strings.4467@ &B:,'@<@ %B:,'@,. 6.4467@ &B:,'@<@ %B:,'@,. } 6.4467@&B:,'@<@%B:,'@,. 6.''Choice of auto or manual scaling.3/('DO YOU WANT } (A)UTO OR (M)ANUAL SCALING)34MA0 4A A1P0AA A)%(ENTER MAXIMUM } VALUE OF Y AXIS))%(ENTER MINIMUM VALUE OF Y AXIS)&)%(ENTER MAXIMUM VALUE OF X AXIS)0)%(ENTER MINIMUM V }ALUE OF X AXIS):26-+&,'@2(M)ajor (S)cale (D)ivisionD6-+&,'@N+@%@X0@ }@b0@@@l @vE'AA`A!0A#ETo draw axes and grid/tics. }33Plot subroutine. For sequential points only.6-((6-AP$++8,&,'+&,,%@E006-AP&A }P$++8,&,'+&,,%@% @E)!A%6-@E% @)!Ac%6-Ac ,-@ }((6-AP$++8,&,'+&,,%@E006-AP&AP$++8,&,'+&,,%@!! @E)!AAp }!! @)!AcAp /  Print title subroutine! 6.6-!6- ; A; }Causes TEXT$ to be printed on screen @ H,V.*Print x legend4! 6.6-!6-@#> AHPrint y l }egendR-@B:,\(6.7<,6-(6-&@f Ap zPrint y scale.-@@ }68,-&+&@,$-68,-N:8,,-Separate sign and value.68,-O:8,,6-@$68@,-@ }968@,-@N68@,-@c68@,-@x68@,-@ 68@,-@68@,-@ }68@,-@68@ ,-@68@,-@68@,-@ 8"@ A& 8To select } scaling factor,EX. 6-8,? 568,-8,$+P:+@#6,%?,,? A B&68,-8,'P:+@#,% }?,BTO ASSURE MULTIPLES OF 106.!"@6. ! AP6.=:8,,6.0000??Suppress 0 }before decimal pt. and reduce to 3 characters.=8, @&67B:,%@,.=6.7@<@,R'8,!@ }*P:8,,&8,;67B:,%@,.R6.7@<@, 40006. 0$ APrint YSCL(J).6- }@Print sign.8!"@6. ! A B$8, 6.-$ A L 6.+V8,"6. } ` Aj t76-6-@#7Print yaxis scale factor.~ A5 67B:,%@,.6.  }APrint X scale.-@@68,-&+&@,$-68,-N:8,,-Separate sign and value. }68,-O:8,,R$P:'@,&'@"06-@": APRIF J IS EVEN THEN....6-@!68@ },-@-68@,-@B68@ ,-@W68@,-@l68@,-@68@,-@!68@ },-@$68@,-@'68@,-@068@,-@368@,-@7"@ A'p 6 }-8,? 568,-8,$+P:+@#6,%?,,? A &&68,-8,'P:+@#,%?,6. }(6.=:8,,2See 1020<=8, @&67B:,%@,.=6.7@<@,FR'8,!@*P:8,,&8, };67B:,%@,.R6.7@<@,P 40006.0Z APrint XSCL(J)dPrint sign of x scl. }n 68,-8,&@ 6-8,x:$P:'@,&'@"06-@": A 6-@!$8,  }6.-$ AP 6.+8,"6.  A 76-@46-@#7Print Xaxis scale fact }or. A5 67B:,%@,.6. A A$p!6-Af!M.L. SUBROUTINE@6-A @LOC }ATED TO GIVE ROOM FOR GRAPHIC DUMP PROGRAM. #A-Ae"" %, 6#@$JZZ104 },201,4,240,9,170,240,5,104,104,202,208,251,96,104,133,215,104,133,214,104,104,168TVV104,133,217,104,133,216,104,104,240,23 }6,133,212,24,165,214,101,88,133,214,165,89^YY101,215,133,215,152,240,15,165,214,105,64,133,214,165,215,105,1,133,215,136,2 }08,241hUU132,221,160,0,132,220,177,216,160,0,170,16,1,136,132,213,138,41,96,208,4,169,64rWW16,14,201,32,208,4,169,0,16, }6,201,64,208,2,169,32,133,218,138,41,31,5,218,133,218|__169,0,162,3,6,218,42,202,208,250,109,244,2,133,219,164,221,177,218 },69,213,164,220,145,214WW200,132,220,196,212,208,182,24,165,214,105,40,133,214,144,2,230,215,230,221,169,8197,221,2 }08,159,96P6-?:<< H &}$R4,@EAc'/@E@4Fine grid.\@,@7@'/@E@@At omitted yscl value.f', '}@EAc'/AAcp :GRIDz2-@Ac@2(Y)(T)IC (L)ARGE,@B/A (} 3-@A`@3(Y) (T)IC (S)MALL,@E/A 3-@EA@%3(X) )} (T)IC (L)ARGE,Af/@ 3-@EA@3(X) (T)IC (S)MALL,Ac/@ *} $b,@EAc'/@E@9,@DAcK/@D@bDOUBLE WEIGHT LINES. @,@7 +}@'/@E@@At omitted yscl value. K,@EAc'/AAc9,@EAdK/AAd ,} :GRID$ 2-@Ac@2(Y)(T)IC (L)ARGE. Z,@B/A/,@E%@C/A%@ -}ZDOUBLE WEIGHT LINES.8  B 3-@A`@3(Y) (T)IC (S)MALLL ,@E/AV  ` 3 .}-@EA@%3(X) (T)IC (L)ARGEj C,Af/@/,&@AcC/&@@t  ~ 3 /}-@EA@3(X) (T)IC (S)MALL ,Ac/@   $ TTReturns here from 2520 to suppress 0} "READY" prompt until finished with display. =="OPTION" key provides the options shown in 2550 to 2600 9B2y@ 1}$6-F:B2y,9READ CONSOLE KEYS. 6"@A%06"OPTION" bypasses hard copy. B"@ A6 B"START 2}" activates 49 sec. screen dump. A$p + ( Choose option( ( (1) New plot?( &#( (2) 3} New plot,current ND&( DA(9 (3) New plot,current ND and grid formatD( C@(8 (4) Current plot,new t 4}itles and scalesC( *'( (5) Current plot,new scales*(( ( (6) Exit (2 ;;A A 5}AA0ApA4`< 88To scale y axis values to reduce number of digits.F A+8@,@*8@, 6}A76-A A'`P 8@,!AA&`Z A'd -@@n ))6-8@,'P:+@ 7}#,%?,x !! A*!@A'`   8@, @A'  A'` ""-6@6@6 8}@ ,,6-8@,$+P:+@#6,%?,, !! A*!@A'`   $ 88To scale X axis values 9} to reduce number of digits. A+8@,@*8@,A76-A A) 8@,!AA( :} A(P -@@ ))6-8@,'P:+@#,%?, # A*!@# A)  "  ;}8@, @A(p, A)6 ""-6@6@6@@ ,,6-8@,$+P:+@#6,%?,,J # <}A*!@# A)T  ^ $h Sine Curver -| / 68,-@$@$+',/68,-G:8,,  =}  $ Parabola - 68,-'+?$, 68,-8,#@   $ Circle or ellipse >}- 6-+@$@$,' #68,-E:,#68,-G:,'?r   $ Discrete Points #A1 ?}& ?6-@ -#",68,-568,-;6-? 0 AA0,7,10,25,15,30,30,50,40,60,50,80,70,20,80,32,90,70,100, @}100: $D Your SelectionN Auto scaling subroutinesX ?6-8,!6-8,06-8,?6-8,b A}-@l  8,!6-8,v  8, 6-8,  8,!6-8,  8, 6-8,   00(YMAX= Y B}MIN= XMAX= XMIN= #A4P 6-+&,'@ -6@@ -@@" g0 P:A C}$$@#+,%?P,'A]6-P:A$$@#+,%?P,'Ag A3  #A4P  !!-@ D}6@6@ '+$,$+!$&?$,'6-$   6-&@$ #A4P 6-+&,'@  E}-6@@* -@@"4 g0P:A$$@#+,%?P,'A]6-P:A$$@#+,%?P F},'Ag A4>  #A4P H !!-@6@6@R '+$,$+!$&?$,'6-$\  f G} 6-&@$p $z 1,2,5 +@ Closing display. -@ ))(@SEE YOU NEXT SESSION H}  -A  +  Inverse scale factor.  6.6. 6.=:, -@B:, I} 68,-@:7<,, 68,-8,%A( 67<,.>:8,,  6.$$o #A7!-@@a%"3 J}A5%7 Y6-F:@,%F:@,$AVo6-%@@$A.``THIS IS 49 SEC. SCREEN DUMP PROGRAM. POKE IN M/L K} PROGRAM AND SET UP DISPLAY MEMORY POINTER8 A7@B8((@>:@',A>:@,8-%@9L$$SET LINE L} SPACING AND MAKE LOOPV96.>:,*67A,.>:,967@,.`B6-?:A6<:@',K>: M}A,>:,j66PASS BOTH VALUES TO M/L PROGRAM AND PRINT STRINGt ~ll104,104,141,21,6,104,141,20,6,104,141, N}27,6,104,141,26,6,160,193,173,255,255,136,240,35,141,255,255,238cc26,6,240,21,173,20,6,56,233,40,141,20,6,144,4,24,76,19, O}6,206,21,6,76,19,6,238,27,6,76,33,6,96$##@@K: (Please turn printer on!!4( ( (+ P}(Press any key to continue..(1(4()@AUA@D2:GRAPHEZE.BAS( ( (+ s{|D/DNPOPMSCFFLAPMMOVPMMDDSNPSWPPPPPMLGOLG2STARXYP0P1P2ABUGZPMMOVD1D2R}PMBASXFR S}@@T} !"#@$@%&'()@*+,-U}./012%%%% SPY PLANE %%V} BY : %% FOR : A.N.A.L.O.G %%2<AdW}AXF +@-@:(@ SPY PLANEZ(@ by mark comeaue(@p(@(@X} PQ-AU#A' 9A@bM-AQ ZG +6-@Y}+AY=A@G A1d A0n-6-@6-@!6--6-@xI +@*Z}AVF:A,%@<AY@FI6-6?KA@'A@V9A@0KA[}@%"6-@% A& A  MAIN LOOP \}h6-R:,h6-%+"@)"@)"@,$@&+"@)"@)"@ ,$@]}YY6-%+"@)"@)"@ ,$@&+"@)"@)"@,$@)#"@)"@)"@^})6-3-"@)"@)"@)"@ 36-!!"A)"@@A$$6-?:<<<<<<@_},C/1+&@H,'@+&@,'@C@2A@??A@AA@A AAp`}A# A" END OF MAIN LOOP , 6@ a}DEATH JT"AIAp^$'6-AD$B2xh%6-&@%"A)rb}-%@|$$6-?:<<<<<<@,**6-?:<<<<<&+&,<@,402H:,$@c}@4 006-?:<<<<<<@,006-?:<<<<<<@,?Ad}@b"6-6??T:,"@A A'  GOTO SCREEN )"e}A6-%@)6-@H@w)"@@6-&@)6-A$$6-?:<<<<<<@f},I-72IAY) $A@%A)AY@F&8 g}8,"AI$6-$@8,8&@,8,06-6? A:| -@6@>2Aq}AB!CARDFILEBASBJ%DOS SYSBmoMATTEDITBASBuGRAPHEZEBASBQSPYPLANEBASBBOOT1 ASMBBOOT4 ASMB BOOT6 ASMBoFERGEE BASB*fDUP SYS%@\2@A&@` n6-%@|6-%@D"@A$@N9 @26-$@r}/,8&@,8,9 AXblv SCREEN #1 SUB )6-%?!@)6-=s}"6-AD=2@6@@="@6-AE=2@5@@="t}@6-AF=2@4@@="@6-AE=2@3@@,@u}@$ SCREEN #2 SUB 6-%@ $6-m%6-P:H:,$@,%@v}1"@=6-@I6-@U6-@a6-@m6-@K"@6-@y'6-@36-@?6w}-@K6-@K"@6-@'6-@36-@ ?6-@K6-@K"@6-@'x}6-@36-@ ?6-@K6-@K"@6-@'6-@36-@ ?6-@K6-@ y}%A`,/: -@6@62@:  C/1+&@H,'@+&@,'@z}C@2A@*;%2/@25,;/4$> SCREEN #3 SUB H6{}-P:,%@ $R"@ 6-A =6-P:H:,$@ ,%@G@[,$@@ 2H|}:,$A%AU@@$\e"A@N2H:,$A%AU@@b,}}$@@ e$fe"A@N2H:,$A%AU@@b,$@@ e$p~} A$zc @2!,$@@ C2c6-+$@,$@%@H -@}@6@d)2@&@&A6-@&+@&,d6-?:<@<<<<<@&,} E -@@"6@A6-?:<@<<<<<@,E 006-?:<@<<<<<@, }F:B2`,!A@46-124$ SCREEN #4 SUB 6-%@} $m%6-P:H:,$@,%@1"@=6-@I6-@ U6-@a6-@m6-AK}"@6-@'6-@ 36-@?6-@K6-AK"@6-@'6-@36-?6-}@K6-AK"@6-@'6-@36-@?6-@K6-AK"@6-@'6-}@36-@?6-@K6-AK"@6-@'6-@ 36-@?6-@K6-A5%2}@@@)/,5/$: -@@6@62@: .C/1+&@H,'@}+&@,'@C@2A@8J @2,/;2G6-J$B} SCREEN SUB #5 L66-%@3 P:H:,$@,%@6$VY%2AU@@EP:H:},$@,"@O@Y A0` @j',@@'/@@tC/1+&@H,'@+&}@,'@C@2A@~b @2,@@1/@@S2AU@@_6-}b$ SCREEN SUB #6 6-%@ $m%6-P:H:,$@ ,%@1"@=6-@ }I6-@U6-@a6-@m6-A K"@6-@'6-@36-@?6-@K6-A }K"@6-@'6-@36-@?6-@K6-AK"@6-@'6-@36-@}?6-@K6-AK"@6-@'6-@ 36-@?6-@K6-AK"@6-@}'6-@ 36-@?6-@K6-AK"@6-@'6-@ 36-@?6-@K6-A}K"@6-@'6-@ 36-@?6-@K6-AK"@ 6-@'6-@ 36-@}?6-@K6-A ,/@ -A6@<2@@@  C/1+&@H,}'@+&@,'@C@2A@;%2/@25,;/6-}$( SCREEN #1 2(@<&&(@F&&(@CE CE CE CE CE }P&&(@ Z&&(@ d&&(@ n&&(@} x&&(@ &&(@ &&(@ FAA}AAAH &&(@AAAAAAAAAAAAAAAA(@$ SCREEN #2 &&(@}DDDDDDDDDAA&&(@ CE CA&&(@ CE C&&(@ CE } &&(@ CE &&(@ &&(@ l }&&(@ &&(@ &&(@ "&&(@} kkk,&&(@j6$@ SCREEN #3 J&&(@}T&&(@ ^&&(@ h&&(@ }r&&(@ |&&(@ &&(@ &&(@} &&(@ &&(@ &&(@ n}nnnnnnnn&&(@$ SCREEN #4 &&(@DDAAAAECABBBBBBBB}BB&&(@ CAAE CB BBB&&(@ CE B B &&(@ &&(}@ &&(@ jj &&(@ &&(@ } &&&(@ 0&&(@ j :&&(@ kk}k D&&(@N$X SCREEN #5 b&&(@l&}&(@ v&&(@ &&(@ &&(@} &&(@ &&(@ &&(@ } &&(@ &&(@ &&(@ }&&(@$ SCREEN #6 &&(@CAAAAAAAAAAAAAADDDAA&&(@} CAAAAECAAECAAE CD&&(@ CAAE CE CA  &&(@ CE C &&(@ } j  &&(@ l j *&&(@ l j 4&&(@ } >&&(@ H&&(@ R&&(@ kkkkk\&&(}@f$p SCREEN #7 z&&(@ADDDDDDAAAAAAAADDDD&&(@E } AAAAAAAE &&(@ AAAAAAE &&(@ AAAAAE &&(@ AAAAE } &&(@ AAAE &&(@ AAE &&(@ AE &}&(@ E &&(@ &&(@ k k j l l &&(@}$ SCREEN SUB #7  6-%@ $ 6- m%6-P:H:,$@},%@1"@=6-@I6-@U6-@ a6-@m6-@$ K"@6-@'6-@36}-@ ?6-@K6-@. K"@6-@y'6-@36-@ ?6-@K6-@8 K"@}6-@'6-@36-@ ?6-@K6-@B K"@6-@'6-@36-@ ?6-@K6}-@L %A`,/V : -@6@62@: ` C/1+&@H,'@+&@},'@C@2A@j ;%2/@25,;/t $~  FINI }  +@AY@F 3-@@3(@! J-A4AH:},$AU8 JA *-@@*(@score : :-%A@--@ @:(}@ -@6@ )!2@&@% )  A-@@3(@}ΡA6-%@ "@6-@ -AU@ +A+2@@}   %%2 )6-&@ @)6-@  A0 A (  TI}TLE DISPLAY 2 x @:,,0/@B,@@T/@f,@x/@}@< ',@'/@@F =-@1(@=6-P 1-}@-Ad%%AU1 Z N-@-Ad%%1 NAH:,$AUd RT:},"$6-@ 06-@<6-@H6-R A' n /6-%@/"@P*"@A)x }A&@ G%2G2@   DISPLAY SCORE 6(@}}$-6A@ G%2G2@ (@} &&(@CAAAAECECAAAAAAAAECE &&(@ CAAE CAAAAAAE  &&(@ CE CAAAAE  &&(}@ CECE  3 A,@@3/@%@ "-@@"(@ &&(@}  &&(@  &&(@  &&(@}" (@, F:B2y,"@A)6 T:,"A(`@ AJ  GAM}E OVER T ; +@AY@F;(@ Š^ G%2G2@}h 006-?:<<<<<<@,r +-@@+(@score:| 2-@}@ 2(@by : ,-@@,(@  Z-A4AH:,}$AU8 D6-P6-@Z A0 KA@'A@P9A@0KA@ L}(@}%-BAVF:A,%@L A&  ENTER CASE POS. % #A16-@}%6-@ 7%6-P:H:,$@,%@1"@7" ""6@ A0P ' 68,-68,-!}"@'" 6-%@ A0 ;%6-P:H:,$@,%@;#+$@,%A1  -@ 5"}6-$@)68&@,-8,568,-8,  68,-  $ A ""10,3,15,6,10,1,15,9,15,4,7,9& 13,5,4,3},16,5,5,6,4,4,14,60 11,6,18,7,-1,0,-1,0: 5,1,4,2,7,3,6D 6,2,5,1,3,4,7N 3,5,4,1,2,7,6X 4,3,5,7,6,1,2b }6,7,2,5,3,1,4l ;@,;@,;@,;@,9@,;@,;A,9,9,9$@,9,};@,;@,;@ ,v ;@ , ) A30#A7P)AA& 96.======[\]^>?@=======96.}޾ 4 6-C:, -@A$"067,.>:,4  +-@@"'67,.>:,+  +-@}@"'67,.>:,+  +-@@"'67,.>:,+  +-@@"'67,.>:,+  +}-@@"'67,.>:,+  +-@@"'67,.>:,+  d/6-P:+F:AE,%@,'@,$@};BByI6-$AVR6-C:,dB2w@ 'A@b'A@F 0 6-C:,6-C:,6-C:,}'6-C:,06-C:, A g AF:A,&@A6-+F:A,%@,$AVUAV'AVgAR}@ D #A@;@8,.-@@82"@67<,.>:,D  16-?:C:,,#A3-6-A2&@1"} "6@#$* 7-@!%%%") 76-%@4 A3`> 0,192,118,63,112,192,0,0H }0,0,0,0,0,0,255,255R !!0,0,199,207,205,207,237,237\ 0,0,59,187,191,191,183,183f 0,0,120,96,112,96,127,127p %%255},255,255,255,255,255,255,255z ##255,17,255,136,255,17,255,136 255,255,55,21,21,5,5,1 %%255,255,255,247,245,181,181,}144 ""255,246,244,244,112,80,64,64 1,7,23,23,55,127,127,255 %%164,173,253,255,255,255,255,255 %%128,136,168,232},248,250,250,255 ""195,199,46,30,62,125,251,199 192,226,113,53,9,21,67,63 !!56,56,16,56,146,186,214,254 ""3,71,}142,172,144,168,194,252 24,24,24,24,60,126,126,102 ##60,60,255,255,255,255,255,255 192,64,112,16,28,4,7,12}4,48,24,48,24,48,24,483,2,14,8,56,32,224,128%%255,146,255,146,255,146,159,159$""255,73,255,73,255,73,255,255.}2,6,6,31,22,22,18,568 56,68,130,146,130,68,56,56B 64,96,96,248,104,104,72,28L 16,74,84,137,100,146,84,40V8}4,96,170,85,178,41,38,20`0,60,36,255,255,255,255,0j0,0,0,0,0,0,255,255t##127,255,192,254,127,3,255,254~!!0,11}5,123,107,121,112,96,96!!0,48,48,240,224,192,192,192%%252,254,198,254,252,192,192,192-1ff216,104,104,104,13}3,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208ff104,104,133,209,104,104,24,101,209,133,20}7,166,213,240,16,165,205,24,105,128,133,205,165,206,105aa0,133,206,202,208,240,160,0,162,0,196,209,144,19,196,207,176,15,}132,212,138,168,177,203,164``212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,224,166,213,165,208,157,0,208,96}0,192,118,63,112,192,0,00,3,110,252,14,3,0,0 24,24,24,24,60,126,126,1020,0,0,0,0,0,0,00,192,118,37},8,0,0,00,0,20,55,112,192,0,0ff104,169,0,133,203,133,205,169,224,133,206,165,106,24,105,1,133,204,160,0,177,205,145},203,200,20844249,230,204,230,206,165,206,201,228,208,237,96D2:SPYPLANE.BAS06,24,105,1,133,204,160,0,177,205,145X10 *= $060015 CLD20 JSR SUB1 ;GOSUB 10025 BRK ;END30 SUB1 JSR SUB2 ;GOSUB 20035 } RTS ;RETURN40 SUB2 LDA VARA ;VARA=VARA+145 CLC50 ADC #155 STA VARA60 RTS ;RET}URN65 VARA *=*+170 .ENDARA ;VARA=VARA+145 CLC50 ADC #155 STA VARA60 RTS ;RET#10 *= $060020 CLD ;BINARY MATH30 LDA #0 ;ZERO OUT...40 STA COUNTL ;COUNTER} LO50 STA COUNTH ;COUNTER HI60 JSR INCCTR ;INC COUNTER70 LDX #4 ;5 TIMES...80 LOOP1 JSR} INCCTR ;INC COUNTER90 DEX ;NEXT X0100 BPL LOOP1 ;LOOP IF POS.0110 LDA #$50 ;GET # IN ACC}.0120 JSR INCCTR ;INC COUNTER0130 STA ACCUM ;SAVE ACCUM.0140 BRK ;ALL DONE!0150 INCCTR LDA C}OUNTL ;GET LO BYTE0160 CLC ;CLEAR CARRY0170 ADC #1 ;ADD 10180 STA COUNTL ;SAVE LO BYTE019}0 LDA COUNTH ;GET HI BYTE0200 ADC #0 ;ADD W/CARRY0210 STA COUNTH ;SAVE HI BYTE0220 RTS } ;RETURN!0230 COUNTL *=*+10240 COUNTH *=*+10250 ACCUM *=*+10260 .END COUNTH ;SAVE HI BYTE0220 RTS T10 *= $060020 CLD ;BINARY MATH30 LDA #3 ;GET 3,40 JSR MULT27 ;MULT BY 27,}50 STA THREE ;SAVE RESULT60 LDA #7 ;GET 7,70 JSR MULT27 ;MULT BY 27,80 STA SEVEN } ;SAVE RESULT90 LDA #9 ;GET 9,0100 JSR MULT27 ;MULT BY 270110 STA NINE ;SAVE RESULT0120 } BRK ;AND STOP!0130 MULT27 STA TIMES1 ;SAVE NUMBER0140 ASL A ;* 20150 STA TIMES2 ;SAVE # TIMES} 20160 ASL A ;* 40170 ASL A ;* 80180 STA TIMES8 ;SAVE # TIMES 80190 ASL A ;* 1}60200 CLC ;CLEAR CARRY0210 ADC TIMES8 ;*16 + *8 = *240220 CLC ;CLEAR CARRY0230 }ADC TIMES2 ;*24 + *2 = *260240 CLC ;CLEAR AGAIN0250 ADC TIMES1 ;*26 + *1 = *270260 RTS };ALL DONE!0270 TIMES1 *=*+10280 TIMES2 *=*+10290 TIMES8 *=*+10300 THREE *=*+1 ;3*27 RESULT0310 SEVEN *=*+1 ;}7*27 RESULT0320 NINE *=*+1 ;9*27 RESULT0330 .END0300 THREE *=*+1 ;3*27 RESULT0310 SEVEN *=*+1 ;AI66TOPNFPAUSEEMHFONTSFILERTABZMETSPACELARJNWCTNMALPTONUNUMBESECNUMHNUMLIIOCAD!}RHADRLPGLINEUSELIMIDNHUW !} !} !"#$%&'()!}*+,-./012345* * THE FERGEE !}FILE PRINTER** BY* DR. JOHN FERGUSON pp* This program will print files cre!}ated with BANK STREET WRITER and a number of other mm* editors and word processors. It will translat!}e symbols embedded in text as shown mm* on the title page, and print out the file on a NEC 8023AC !} printer using its special jj* characters and controls. For other printers, change control co"}des in linesll* 3515-3570 and 4340. The underline is set by ASCII codes 27 and 88 found innn"}* lines 5030 and 5040. It is cleared with ASCII codes 27 and 89 in line 5040. Thesenn* may be subst"}ituted one for one with other codes if necessary.Change number ofpp* indent spaces by replacing "} the two 8's in line 5060. Change other defaults at 50. A`# +(~~;@,"};@,;@,;@,;@u,;@,;@0,;@,;@,;@@,;@4,,6-B`"}-{L;,;@,;AP,;@,;A,;AP,;@',\67@,.l67A,.{67@,.2"}DEFAULTS36-@6-@'6-@d36-@B6.TOP (#.)N6-@V6.Y^6.Nj6-@Ur6."}N}6.PICA6.6.4 6.Y6.050F=-A4")A6%- =TRANSLATE SRTK>-"}A"&C:,%* >RIGHT JUSTIFY SRTL--@@4")67<,.>:,- M@-@@'")67<" },.>:,- @WORD COUNTER SRTP +dr B A(}B( ENTER NUMBER TO CHANGE OR N6-`A" }yrAi$(@@%$(Defaultj!@@%!( n$$( 1. Line spacing-" } x$$( 2. Text lines per page- $$( 3. Left margin- $$( 4. Line length- $$(" } 5. Start with page- $$( 6. Page number, where- $$( 7. Start at top- $$( 8. Pause betwe" }en pages- $$( 9. Emphasized print- $$(10. Right justified- $$(11. Font type- '"}$(12. Tabs set at- '('$(13. Special codes: '(( 14. Header:  (  Aww"}ApAA0APA`AA0A@A`AeApAAPA%"@"}6-@% A%"@6-@% A,M (} (.(HOW MANY TEXT LINES PER PAGE?1(J((Normal v"}alue is 55)M(@( (  AJ/ (} (/(ENTER # SPACES FOR LEFT MARGINO ( T A^* (} (*(E"}NTER LINE LENGTH (1-150)_@((Normal values:,@@ @(Pica 64`)@@ )(Elite "} 78a*@@ *(Proportional 100b*@@ *(Condensed 118c+( ( + @)!AP"}APe Ah/ (} (,(ENTER NUMBER FOR FIRST PAGE/(mr A|/ (} (/(DO YOU WANT PAGES NUMB"}ERED AS:"("( (1) TOP #.( (2) TOP Page # ( (3) BOTTOM - # -( (4) NONE"}.( .AAA A%(6-@6.TOP (#.)( A*6-@ 6. TOP (Page)* A"}&6-@6.BOTTOM& A$6-@6.NONE$ A 4Y6.N A 4N6.Y"} A 4Y6.N A 4N6.Y A 4Y6.N A 4N6.Y A"} 4Y6.N A 4N6.Y A (} ( (ENTER FONT TYPE(( (1) PICA( (2"}) ELITE( (3) PROPORTIONAL( (4) CONDENSED.( .AAAA6.PICA A"}6.ELITE A6.PROP. A6.COND. AX$ (} ($(TABS NOW SET AT: bg( (a"}(STo change, enter new tab positions as three digit numbers separated by commas.d(g(l4Av 6."} AV (} (,(ENTER SPECIAL PRINTER CODES/(V("(Do not use spaces or punctuation)( (  A0 ("}} ((ENTER HEADER: "(&0 ADISPLAY FILE LIST (} A\@1@@"}D:*.*<@\@@K:$-@@c$@A@@A7@<@" },4 FREE SECTORSA67@<@,4SYS,6-&@6 Ap5'@"P:'@,.@@ "!}5( $q2( >:@d%, 7@<@, q67+&@,$@%@<+&@,$@%@,..""}  A08-( (-(TYPE LETTER OF FILE TO PRINT OR=( FOR MENU(B-)@6-&@d-(>:@d"#}%,LBB6.7+&@,$@%@<+&@,$@%@,V 6.D:`,-@@,7<,4 A@"$}j67B:,%@,.7<,t ~>67B:,%@,..>67B:,%@,.7@ <@,GET FILE<6-+&"%}@,$A%,6-P:'AV,<6-&AV$ 36.>:,$67,.>:,367@,. B A#"&}6@@6@@ *@*6-A:7@<@,,%@*<6-+&@"'},$A%,6-P:'AV,<6-&AV$4 GET CIO>+6-@+@H6-@$ A""(}R%6-A2%%%@@\6-P:C:,'AV,f6-C:,&$AVp;%@%@-%@")};%@ z6-?:C:hhhLV,<,:-@A($)@667%<%,.>:,: +'@+6.7@"*}<%&@,57B:,,0>:AU,567B:,%@,.>:AU, A0O B(-( CANNOT LOAD F"+}ILE!A-@AE O A  5 (} ((5(!PRESS: RINT FILE (PRINTER ON?) $($( IEW OR EDIT FI",}LE (( ENU AdAU F:Ad,"@A5 F:Ad,"@Ap F:Ad"-},"@7A A0@ SET PRINTER CONFIGURATION # B AE#6- .@.@@".}P: *4PICA(@N*SET FONT 4ELITE (@E 4PROP. (@P"/} 4COND. (@Q =(@L  A0(@0=SET MARGIN  @(@0 "0}(@ 0 4Y(@!0SET ENHANCED MODE O 6.( 67B:,%@,.667B:,%@,..D(@"1}OSET TABS !(@!SPECIAL CODES)A)A%@ 6-4NAA6-"2}TRANSLATE SECTION$"@(@$ A@(@HEADER$!@(@$ A@"3}2-@&B:,&@.(@ 2  "@ (@.$"@$(@Page %("4}@(@%TOP SPACE 6-B:,) 6.67AP,.)67@,.+ 6. 67AP,. +67@,"5}.":6-F:A,6-%"6-&.!AU:6-AU',F:A, %@,A@, AF"6}END6A;6-?:C:,(A(E B A@ A@( B(}((TURN PRINTER ON!%-@A % "=}A0 @ AdAUf (} (<( WORD COUNT = F:Ay,%AV$F:A,NAy`A">}c(f(H(+( ENTER 'P' TO PRINT A SECOND COPYB(OR FOR MENUE(H(  B A4"?}P6- A5  Add104,174,253,6,216,172,251,6,204,255,6,240,61,177,203,201,60,240,61,201,62,240,72,201,93,2"@}40,83dd201,94,240,92,201,91,240,101,201,92,240,111,201,3,240,114,201,9,240,119,201,155,240,20,172,252ff6,140,246,6,14"A}5,205,238,252,6,238,251,6,202,208,193,76,192,6,238,245,6,238,251,6,76,229,6,169,27ff172,252,6,145,205,238,252,6,169,88,23"B}2,208,212,169,27,172,252,6,145,205,238,252,6,169,89,232,208ff197,238,251,6,172,251,6,177,203,24,105,128,144,184,238,251,6"C},172,251,6,177,203,24,105,64,144,171ee238,251,6,172,251,6,177,203,56,233,64,76,51,6,169,27,232,232,76,51,6,238,250,6,238,"D}251,6,76,5,6ff173,254,6,24,105,8,141,254,6,138,56,233,8,170,238,251,6,76,5,6,138,74,141,254,6,96,206,252,6,172dd252,6"E},177,205,201,32,240,25,201,27,208,9,238,251,6,206,246,6,206,246,6,201,128,144,3,206,251,6,,206,251,6,208,219,206,250,6,24"F}0,208,96dd104,104,133,208,104,133,207,173,246,6,208,1,96,206,245,6,208,9,238,246,6,169,1,141,249,6,96,56ff237,252,6,1"G}33,209,169,0,205,249,6,208,58,238,249,6,141,252,6,141,248,6,172,252,6,177,205,238,252ff6,172,248,6,145,207,238,248,6,204,"H}246,6,176,85,201,32,208,231,165,209,240,227,198,209,169,32,172 gg248,6,204,246,6,176,65,145,207,238,248,6,24,144,207,206,2"I}49,6,230,209,173,246,6,141,248,6,238,248dd6,172,252,6,177,205,206,252,6,172,248,6,145,207,206,248,6,48,25,201,32,208,234,"J}165,209,240,230dd198,209,169,32,172,248,6,145,207,206,248,6,48,3,24,144,213,160,0,177,207,145,205,200,204,246,6(ee144,"K}246,165,209,240,31,173,249,6,240,15,238,246,6,230,209,169,0,141,252,6,141,248,6,240,160,1732**246,6,141,248,6,141,252,6,20"L}8,166,96PQQ104,104,133,204,104,133,203,104,133,206,104,133,205,169,0,141,250,6,141,251Z226,141,252,6,141,254,6,141,246,"M}6,141,245,6,96KK104,172,252,6,240,17,136,240,6,177,205,201,32,208,247,238,243,6,208,3238,244,6,136,16,239,96pT"N}ITLE PAGEu +z%%6-F:A`,%AV$F:Aa,S%@@+%@@?%@ @S"O}%@@'AAH'AATE%@'@e.%@(F:A`,E%@(F:Aa,"P}dAR@(*@@2(THE5(8(;(>(A(S@@d( TRANSLATIONS@@@'-"Q}@@@(@ FERGEE FILE*-@@*(@PRINTER8@'@@8( "R} 1(@@1(CTRL C = CENTER LINE2@@2(CTRL I = INDENT 8 SPACES1(@"S}@ 1(< = SET UNDERLINE0@@ 0(> = CLEAR UNDERLINE0@@ 0(] = ATARI CHA"T}RACTER/@@ /([ = CTRL CHARACTER5@@ 5(^ = ATARI CTRL CHARACTER'@@ "U}'( \ = ESCAPE8 @@XVIEW FILE ROUTINEb.@.@@S:l'6-@6-"V}'6-v BTRAP 7000--(}!PRESS: P, OWN, EGINNING, ND,''( HANGE, RINT, ENU"W}0-(%0(AdAU A7'F:Ad,"@X*B:,&!A-6"X}-7 Ap@*F:Ad,"@ 6-&* Ap@ F:Ad,"@!Ap >F:Ad,"@B46-P:B:,'A"Y},$A> Ap@ F:Ad,"@Au F:Ad,"@A54F:Ad,"@7*AdA"Z}U4 A ApLEDIT PRINT FILE ROUTINEV11(}%MOVE CURSOR AND SET: EGINNING, ND`((( OR: BORT "[} (NOTE: EOL = )ec-(%0(3(?6-@K6-@W @c6-@j< "\}Au@-%A11@:7<,,"AU8( < o (7<, t"AdAU-"(~0F:Ad,"A"]}5&6-%@0 Av 0F:Ad,"A4&6-&@0 Av 0F:Ad,"AB&6-&@0 Av "^}0F:Ad,"AC&6-%@0 Av  F:Ad,"@!Aw F:Ad,"@BAx F:Ad"_},"@cAp AuP!@86-@ @6-@8!@#6- "`}6-@# Au@A)6-%++&@,$@8,%&@76.7